home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / INDEX.DO < prev    next >
Text File  |  1991-07-15  |  398b  |  21 lines
  1. /*
  2.     create and check an index file for a database
  3. */
  4. db = new(Dbffile,"patient");
  5. top(db);
  6. index = createIndex(db,"patient","lname",0,0);
  7. ? "type of index is ",type(index);
  8. close(db);
  9.  
  10. /*
  11.     open the index and print out records in index order
  12. */
  13. db = new(Dbffile,"patient");
  14. new(Ndxfile,db,"patient");
  15. top(db);
  16. while(!eof(db)) {
  17.     ? recno(db)," ",lname;
  18.     skip(db,1L);
  19. }
  20. close(db);
  21.